home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / DTMedia / HyperAnimation / HyperAnimation Demo / HyperAnimation Demo / card_17948.txt < prev    next >
Encoding:
Text File  |  1990-04-09  |  1.6 KB  |  86 lines
  1. -- card: 17948 from stack: in
  2. -- bmap block id: 18633
  3. -- flags: 0000
  4. -- background id: 12523
  5. -- name: typeText3
  6. ----- HyperTalk script -----
  7.  
  8. on idle
  9.   global idlewait2, idletime
  10.  
  11.   get the ticks
  12.   if it - idletime > idlewait2 then
  13.     click at the loc of cd btn "continue"
  14.   else pass idle
  15. end idle
  16.  
  17.  
  18.  
  19. -- part 1 (field)
  20. -- low flags: 00
  21. -- high flags: 0000
  22. -- rect: left=0 top=0 right=12 bottom=12
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 0
  26. -- font id: 3
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: temp
  31.  
  32.  
  33. -- part 2 (button)
  34. -- low flags: 00
  35. -- high flags: 2000
  36. -- rect: left=106 top=269 right=296 bottom=198
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 1
  40. -- font id: 2
  41. -- text size: 24
  42. -- style flags: 0
  43. -- line height: 32
  44. -- part name: Repeat
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   lock screen
  48.   RAVE "{hide lilJonathan}"
  49.   unlock screen with visual effect dissolve
  50.   go to card "typeText"
  51. end mouseUp
  52.  
  53. on mousedown
  54.   fplay "Click"
  55. end mousedown
  56.  
  57.  
  58. -- part 3 (button)
  59. -- low flags: 00
  60. -- high flags: 2000
  61. -- rect: left=307 top=269 right=296 bottom=405
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 1
  65. -- font id: 2
  66. -- text size: 24
  67. -- style flags: 0
  68. -- line height: 32
  69. -- part name: Continue
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   visual effect dissolve
  73.  
  74.   go card "typeText2"
  75.   do card field "recite13" of card "BigJ"
  76.   sequence4
  77. end mouseUp
  78.  
  79. on mousedown
  80.   fplay "Click"
  81. end mousedown
  82.  
  83.  
  84. -- part contents for card part 1
  85. ----- text -----
  86. go go go